Profile of (eval 257)[Sub/Quote.pm:3]

Filename	(eval 257)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 13 statements in 338µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	52µs	52µs	Method::Generate::Accessor::_Generated::BEGIN@11.109
1	1	1	26µs	52µs	Method::Generate::Accessor::_Generated::BEGIN@20.110
1	1	1	15µs	54µs	JSON::Schema::Modern::Result::::BEGIN@6 JSON::Schema::Modern::Result::BEGIN@6
0	0	0	0s	0s	JSON::Schema::Modern::Result::output_format

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
3	1	0s			my $isa_check_for_output_5fformat = ${$_[1]->{"\$isa_check_for_output_5fformat"}};
4	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
5					package JSON::Schema::Modern::Result;
6	2	109µs	2	93µs	# spent 54µs (15+39) within JSON::Schema::Modern::Result::BEGIN@6 which was called: # once (15µs+39µs) by Sub::Quote::_clean_eval at line 6 no warnings 'closure'; # spent 54µs making 1 call to JSON::Schema::Modern::Result::BEGIN@6 # spent 39µs making 1 call to warnings::unimport
7					sub output_format {
8					($_QUOTED,$_UNQUOTED) if 0;
9					# BEGIN quote_sub PRELUDE
10					package Method::Generate::Accessor::_Generated;
11					# spent 52µs within Method::Generate::Accessor::_Generated::BEGIN@11.109 which was called: # once (52µs+0s) by Sub::Quote::_clean_eval at line 16 BEGIN {
12	1	1µs			$^H = 1762;
13	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
14	1	5µs			%^H = (
15					);
16	1	54µs	1	52µs	} # spent 52µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@11.109
17					# END quote_sub PRELUDE
18					(@_ > 1
19					? scalar do { my $value = $_[1];
20	2	162µs	2	78µs	# spent 52µs (26+26) within Method::Generate::Accessor::_Generated::BEGIN@20.110 which was called: # once (26µs+26µs) by Sub::Quote::_clean_eval at line 20 (do { no warnings "void"; package Type::Tiny; ((defined($value) and !ref($value) and $value =~ m{\A(?:(?:basic\|d(?:ata_only\|etailed)\|flag\|strict_basic\|terse\|verbose))\z})) or Type::Tiny::_failed_check($isa_check_for_output_5fformat, "Enum[\"flag\",\"basic\",\"strict_basic\",\"detailed\",\"verbose\",\"terse\",\"data_only\"]", $value, "attribute_name","output_format","attribute_step","isa check","mgaca","0","varname","\$self->{\"output_format\"}"); $value }), # spent 52µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@20.110 # spent 26µs making 1 call to warnings::unimport
21					($_[0]->{"output_format"} = $value),
22					($_[0]->{"output_format"}),
23					}
24					: $_[0]->{"output_format"}
25					) }
26	1	1µs			$$_UNQUOTED = \&output_format;
27					}
28	1	4µs			1;
29
30					;